home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / PERCNT23.ZIP / SAMPLE.ZIP / PERCNTS.FRM next >
Text File  |  1993-10-26  |  2KB  |  94 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "PerCnt Sample"
  6.    ClientHeight    =   1470
  7.    ClientLeft      =   1665
  8.    ClientTop       =   2220
  9.    ClientWidth     =   3510
  10.    ForeColor       =   &H00C0C0C0&
  11.    Height          =   1875
  12.    Left            =   1605
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1470
  17.    ScaleWidth      =   3510
  18.    Top             =   1875
  19.    Width           =   3630
  20.    Begin Percent Percent1 
  21.       BackColor       =   &H00C0C0C0&
  22.       BevelBar        =   0  'None
  23.       BevelInner      =   3  'Lowered
  24.       BevelOuter      =   1  'Raised
  25.       BevelWidth      =   1
  26.       BevelWidthBar   =   0
  27.       Border          =   1  'Single Width
  28.       BorderWidth     =   2
  29.       ForeColor       =   &H00FF0000&
  30.       Height          =   375
  31.       Left            =   240
  32.       Percent         =   0
  33.       TextBackColor   =   &H00FFFFFF&
  34.       TextForeColor   =   &H00000000&
  35.       Top             =   120
  36.       Width           =   3015
  37.    End
  38.    Begin HScrollBar HScroll1 
  39.       Height          =   255
  40.       Left            =   240
  41.       Max             =   100
  42.       TabIndex        =   2
  43.       Top             =   1080
  44.       Width           =   3015
  45.    End
  46.    Begin CommandButton Command2 
  47.       Caption         =   "Down"
  48.       Height          =   375
  49.       Left            =   1800
  50.       TabIndex        =   1
  51.       Top             =   600
  52.       Width           =   1455
  53.    End
  54.    Begin CommandButton Command1 
  55.       Caption         =   "Up"
  56.       Height          =   375
  57.       Left            =   240
  58.       TabIndex        =   0
  59.       Top             =   600
  60.       Width           =   1455
  61.    End
  62. End
  63.  
  64. Sub Command1_Click ()
  65.     Dim I, J As Integer
  66.  
  67.     J = HScroll1.Value
  68.  
  69.     For I = J To 100
  70.         Percent1.Percent = I
  71.         HScroll1.Value = I
  72.     Next I
  73. End Sub
  74.  
  75. Sub Command2_Click ()
  76.     Dim I, J As Integer
  77.  
  78.     J = HScroll1.Value
  79.  
  80.     For I = J To 0 Step -1
  81.         Percent1.Percent = I
  82.         HScroll1.Value = I
  83.     Next I
  84. End Sub
  85.  
  86. Sub HScroll1_Change ()
  87.     Percent1.Percent = HScroll1.Value
  88. End Sub
  89.  
  90. Sub HScroll1_Scroll ()
  91.     Percent1.Percent = HScroll1.Value
  92. End Sub
  93.  
  94.